home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_992_LS_Trees_Display behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  817 b   |  22 lines
  1. property mySprite, myListToDisplay, myType, myRegion, ancestor, tileNum
  2.  
  3. on beginSprite me
  4.   global gUserDataMan, gActorListMan
  5.   unRegisterSprite(gActorListMan, mySprite)
  6.   mySprite = me.spriteNum
  7.   myRegion = getCurRegion(gUserDataMan)
  8.   myType = #LandscapingDisplay
  9.   myListToDisplay = findDisplayList(me)
  10.   ancestor = new(script("LandscapingDisplayActions"), mySprite, myListToDisplay)
  11.   registerSprite(gActorListMan, mySprite)
  12. end
  13.  
  14. on findDisplayList me
  15.   return ["AmericanOilPalm_1810", "BetelPalm_1811", "BetelTrisPalm_1812", "BishopPine_1813", "CanaryIslandPalm_1814", "Cherry_1815", "Chokecherry_1817", "Hackberry_616", "Hornbeam_1818", "LittleleafLinden_606", "NobleFir_1802", "PalmettoPalm_1808", "WhiteOak_1809"]
  16. end
  17.  
  18. on endSprite me
  19.   global gActorListMan
  20.   unRegisterSprite(gActorListMan, mySprite)
  21. end
  22.